/* GUI CONVERTED from rcrshupa.p (converter v1.75) Sat Aug 12 23:00:50 2000 */
/* rcrshupa.p - Release Management Customer Schedules                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*K1Q4*/ /*V8:RunMode=Character,Windows                                 */
/* REVISION: 7.3    LAST MODIFIED: 08/13/93           BY: WUG *GE19*    */
/* REVISION: 8.6    LAST MODIFIED: 05/20/98           BY: *K1Q4* Alfred Tan */
/* REVISION: 8.6E   LAST MODIFIED: 01/19/2000         BY: *J3NH* Ashwini G  */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00           BY: *N0KP* myb        */


/* UPDATE REMOTE DATABASE SCHEDULE SUBPROGRAM */


/*J3NH*/ /* REPLACE THE LOGIC OF COPYING THROUGH 'NULL' STREAM BY */
/*J3NH*/ /* BUFFER-COPY STATEMENT                                 */

/*J3NH**  define shared frame hf_sch_mstr.               */
/*J3NH*/  define shared workfile work_sch_mstr no-undo like sch_mstr.



/*J3NH** BEGIN DELETE **
 * form sch_mstr with frame hf_sch_mstr.
 *
 * do with frame hf_sch_mstr.
 *  find sch_mstr where sch_type = input sch_type
 *  and sch_nbr = input sch_nbr
 *  and sch_line = input sch_line
 *  and sch_rlse_id = input sch_rlse_id
 *  exclusive no-error.
 *J3NH** END DELETE **/

/*J3NH*/ find first work_sch_mstr no-lock no-error.
/*J3NH*/ if available work_sch_mstr then
/*J3NH*/ do:
/*J3NH*/    find sch_mstr where sch_mstr.sch_type    = work_sch_mstr.sch_type
/*J3NH*/                    and sch_mstr.sch_nbr     = work_sch_mstr.sch_nbr
/*J3NH*/                    and sch_mstr.sch_line    = work_sch_mstr.sch_line
/*J3NH*/                    and sch_mstr.sch_rlse_id = work_sch_mstr.sch_rlse_id
/*J3NH*/    exclusive-lock no-error.
            if not available sch_mstr then create sch_mstr.
/*J3NH**       assign sch_mstr.                  */
/*J3NH*/    buffer-copy work_sch_mstr to sch_mstr.

/*J3NH*/ end. /* IF AVAILABLE WORK_SCH_MSTR */
